1100
Is it is possible to exclude the non-working days when displaying the histogram using the exBarEffort for exHistOverAllocation type

With G2antt1
	.BeginUpdate 
	.Columns.Add "Tasks"
	With .Chart
		.LevelCount = 2
		.PaneWidth(0) = 40
		.FirstVisibleDate = #6/20/2005#
		.HistogramVisible = True
		.HistogramHeight = 64
		.HistogramView = 112
		With .Bars.Item("Split")
			.Pattern = 6
			.Shape = 18
			.Color = RGB(0,0,128)
		End With
		With .Bars.Add("Task:Split")
			.Color = RGB(0,0,128)
			.Shortcut = "WorkingTask"
			.Pattern = 6
			.HistogramPattern = 6
			.HistogramType = 1
		End With
		With .Bars.Item("Task")
			.Color = RGB(0,0,255)
			.Pattern = 5
			.HistogramType = 1
			.HistogramPattern = 5
		End With
	End With
	With .Items
		h = .AddItem("True")
		.AddBar h,"WorkingTask",#6/23/2005#,#6/29/2005#
		.ItemBar(h,"",21) = 4
		.ItemBar(h,"",20) = True
		h = .AddItem("False")
		.AddBar h,"Task",#6/23/2005#,#6/29/2005#
		.ItemBar(h,"",21) = 4
		.ItemBar(h,"",20) = False
	End With
	.EndUpdate 
End With
1099
I display numbers in my chart, but the AddBar requires a date how can I add a bar
With G2antt1
	.BeginUpdate 
	.Columns.Add "Tasks"
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	With .Items
		.AddBar .AddItem("Task 1"),"Task",2,4
		.AddBar .AddItem("Task 2"),"Task",6,10
	End With
	.EndUpdate 
End With
1098
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
' DateChange event - Occurs when the first visible date is changed.
Private Sub G2antt1_DateChange()
	With G2antt1
		.Chart.FirstVisibleDate = 0
		.ScrollPartEnable(2,1024) = False
	End With
End Sub

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .Level(0)
			.Label = "<%i%>"
			.ToolTip = "<%i%>"
		End With
		.UnitWidth = 24
	End With
	.EndUpdate 
End With
1097
How can I display numbers in the chart's header instead dates

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.NonworkingDays = 0
		.FirstVisibleDate = 0
		.ToolTip = ""
		With .Level(0)
			.Label = "<%i%>"
			.ToolTip = ""
		End With
		.UnitWidth = 24
	End With
	.EndUpdate 
End With
1096
How can I create a bar that's not sizable, or can not be resized by default similar with milestone
With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #12/24/2000#
		.LevelCount = 2
		With .Bars.Add("Custom")
			.Shape = 0
			.StartShape = 1
			.EndShape = 0
		End With
	End With
	With .Items
		.AddBar .AddItem(""),"Custom",#1/2/2001#,#1/2/2001#,"K1","This TYPE of bar can not be resized."
	End With
	.EndUpdate 
End With
1095
Is it possible to hide the non-working parts for items using the ItemNonworkingUnits, even if set the ShowNonworkingUnits, ShowNonworkingDates on False

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/27/2000#
		.PaneWidth(False) = 64
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.NonworkingDaysPattern = 0
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.ItemNonworkingUnits(h2,False) = "weekday(value) = 1"
		.AddBar h2,"Task",#1/4/2001#,#1/6/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
	End With
	.EndUpdate 
End With
1094
Is it possible to show the non-working parts for certain items, even if I hide the default non-working part

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/27/2000#
		.PaneWidth(False) = 64
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.ItemNonworkingUnits(h2,False) = "weekday(value) = 1"
		.AddBar h2,"Task",#1/4/2001#,#1/6/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/8/2001#,#1/10/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
	End With
	.EndUpdate 
End With
1093
How can I hide the non-working part of the chart
With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #1/1/2008#
		.PaneWidth(False) = 0
		.LevelCount = 2
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
	End With
	.EndUpdate 
End With
1092
Is it possible to let users selects cells as in Excel
With G2antt1
	.BeginUpdate 
	.FullRowSelect = 1
	.SingleSel = False
	.ReadOnly = -1
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.LinesAtRoot = -1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(200,225,242)
	With .Columns
		.Add "A"
		With .Add("B")
			.AllowSizing = False
			.Width = 24
		End With
		With .Add("C")
			.AllowSizing = False
			.Width = 24
			.Def(0) = 1
			.PartialCheck = True
		End With
		With .Add("D")
			.AllowSizing = False
			.Width = 24
			.Def(1) = 1
		End With
	End With
	With .Items
		h = .InsertItem(,,"Group 1")
		h1 = .InsertItem(h,,16)
		.CellValue(h1,1) = 17
		h1 = .InsertItem(h,,2)
		.CellValue(h1,1) = 11
		h1 = .InsertItem(h,,2)
		.ItemBackColor(h1) = RGB(240,240,240)
		.CellValue(h1,1) = 9
		.ExpandItem(h) = True
		h = .InsertItem(,,"Group 2")
		.CellValueFormat(h,2) = 1
		h1 = .InsertItem(h,,16)
		.CellValue(h1,1) = 9
		h1 = .InsertItem(h,,12)
		.CellValue(h1,1) = 11
		h1 = .InsertItem(h,,2)
		.CellValue(h1,1) = 2
		.ExpandItem(h) = True
		.SelectItem(h) = True
	End With
	.EndUpdate 
End With
1091
How can I hide a date from the chart view
With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #1/1/2008#
		.PaneWidth(False) = 0
		.LevelCount = 2
		.AllowInsideZoom = True
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 0
			.Add #1/4/2008#
			.Add #1/5/2008#
			.Add #1/6/2008#
		End With
		.SelectLevel = 1
		.SelectDate(#1/5/2008#) = True
	End With
	.EndUpdate 
End With
1090
Can the SchedulePDM displays and edit the working units for my bars

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As Long,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Items.AllowCellValueToItemBar = True
	.Columns.Add "Task"
	With .Columns.Add("Working")
		.Def(18) = 258
		.Editor.EditType = 4
	End With
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 96
		.AllowLinkBars = False
		.AllowCreateBar = 0
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
		.AddLink "L1",h1,"",h2,""
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,""
		.AddLink "L2",h2,"",h3,""
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		h4 = .AddItem("Task 4")
		.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,""
		.AddLink "L3",h4,"",h3,""
		.ItemBar(0,"<*>",20) = True
		.SchedulePDM .FirstVisibleItem,""
	End With
	.EndUpdate 
End With
1089
Can the SchedulePDM displays the working units for my bars
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As Long,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Items.AllowCellValueToItemBar = True
	.Columns.Add "Task"
	.Columns.Add("Working").Def(18) = 258
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 96
		.AllowLinkBars = False
		.AllowCreateBar = 0
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
		.AddLink "L1",h1,"",h2,""
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,""
		.AddLink "L2",h2,"",h3,""
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		h4 = .AddItem("Task 4")
		.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,""
		.AddLink "L3",h4,"",h3,""
		.ItemBar(0,"<*>",20) = True
		.SchedulePDM .FirstVisibleItem,""
	End With
	.EndUpdate 
End With
1088
Can the SchedulePDM keeps the working units for my bars
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As Long,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
		.AllowLinkBars = False
		.AllowCreateBar = 0
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		h4 = .AddItem("Task 4")
		.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"K4"
		.AddLink "L3",h4,"K4",h3,"K3"
		.ItemBar(0,"<*>",20) = True
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1087
How can I arrange automatically the bars based on their links as soon as user moves the bars
' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub G2antt1_BarResizing(ByVal Item As Long,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
		.AllowLinkBars = False
		.AllowCreateBar = 0
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		h4 = .AddItem("Task 4")
		.AddBar h4,"Task",#1/2/2001#,#1/4/2001#,"K4"
		.AddLink "L3",h4,"K4",h3,"K3"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1086
How can I arrange automatically the bars based on their links as soon as user moves the bars
' BarResize event - Occurs when a bar is moved or resized.
Private Sub G2antt1_BarResize(ByVal Item As Long,ByVal Key As Variant)
	With G2antt1
		.Items.SchedulePDM Item,Key
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.AllowLinkBars = False
		.AllowCreateBar = 0
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1085
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub G2antt1_ScrollButtonClick(ByVal ScrollBar As Long,ByVal ScrollPart As Long)
	With G2antt1
		Debug.Print( ScrollBar )
		Debug.Print( ScrollPart )
	End With
End Sub

With G2antt1
	.ScrollPartVisible(1,32768) = True
	.ScrollPartVisible(1,16384) = True
	.ScrollPartVisible(1,1) = True
	.ScrollPartVisible(1,2) = True
	.ScrollBars = 5
End With
1084
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub G2antt1_AnchorClick(ByVal AnchorID As String,ByVal Options As String)
	With G2antt1
		Debug.Print( AnchorID )
		Debug.Print( Options )
	End With
End Sub

With G2antt1
	.Columns.Add("Default").Def(17) = 1
	With .Items
		.AddItem "This is a link: <aex.com;1>www.exontrol.com</a>"
		.AddItem "This is a link: <aex.net;2>www.exontrol.net</a>"
	End With
End With
1083
Is it possible to start editing a cell when double click it
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub G2antt1_DblClick(ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.Edit 
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.AutoEdit = False
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = 1
	.Columns.Add("Edit2").Editor.EditType = 1
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate 
End With
1082
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub G2antt1_DblClick(ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.Edit 
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.AutoEdit = False
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = 1
	.Columns.Add("Edit2").Editor.EditType = 1
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate 
End With
1081
How can I get or restore the old or previously value for the cell being changed
' Change event - Occurs when the user changes the cell's content.
Private Sub G2antt1_Change(ByVal Item As Long,ByVal ColIndex As Long,NewValue As Variant)
	With G2antt1
		Debug.Print( "Old-Value:" )
		Debug.Print( .Items.CellValue(Item,ColIndex) )
		Debug.Print( "New-Value:" )
		Debug.Print( NewValue )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.MarkSearchColumn = False
	.Columns.Add("Edit1").Editor.EditType = 1
	.Columns.Add("Edit2").Editor.EditType = 1
	With .Items
		.CellValue(.AddItem(1),1) = 2
	End With
	With .Items
		.CellValue(.AddItem(3),1) = 4
	End With
	.EndUpdate 
End With
1080
How can I display the number of items being found after filtering
' FilterChange event - Occurs when the filter was changed.
Private Sub G2antt1_FilterChange()
	With G2antt1
		.FilterBarCaption = .Items.VisibleCount
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 1
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1079
How can I highligth the item from the cursor as it moves
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		.BeginUpdate 
		h = .ItemFromPoint(-1,-1,c,hit)
		With .Items
			.ClearItemBackColor G2antt1.Background(1000) ' &H200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition
			.ItemBackColor(h) = RGB(240,250,240)
		End With
		.Background(1000) = h ' &H200 Or BackgroundPartEnum.exHSRight Or BackgroundPartEnum.exListOLEDropPosition
		.EndUpdate 
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = -1
	.DrawGridLines = 1
	.SelBackColor = RGB(240,250,240)
	.SelForeColor = RGB(0,0,0)
	.ShowFocusRect = False
	With .Chart
		.SelBackColor = RGB(240,250,240)
	End With
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,,"Cell 1.1"
		.InsertItem h,,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,,"Cell 2.1"
		.InsertItem h,,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
1078
How can I get the item from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		h = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( "Handle" )
		Debug.Print( h )
		Debug.Print( "Index" )
		Debug.Print( .Items.ItemToIndex(h) )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = -1
	.DrawGridLines = 1
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,,"Cell 1.1"
		.InsertItem h,,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,,"Cell 2.1"
		.InsertItem h,,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
1077
How can I get the column from the cursor, not only in the header
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		Debug.Print( .ColumnFromPoint(-1,0) )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = -1
	.Columns.Add "P1"
	.Columns.Add "P2"
	.DrawGridLines = -1
	With .Items
		h = .AddItem("R1")
		.CellValue(h,1) = "R2"
		.CellValue(.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
		.CellValue(.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
1076
How can I get the column from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		Debug.Print( .ColumnFromPoint(-1,-1) )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = -1
	.DrawGridLines = -1
	.Columns.Add "P1"
	.Columns.Add "P2"
	With .Items
		h = .AddItem("R1")
		.CellValue(h,1) = "R2"
		.CellValue(.InsertItem(h,,"Cell 1.1"),1) = "Cell 1.2"
		.CellValue(.InsertItem(h,,"Cell 2.1"),1) = "Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
1075
How can I get the cell's caption from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub G2antt1_MouseMove(ByVal Button As Integer,ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long)
	With G2antt1
		h = .ItemFromPoint(-1,-1,c,hit)
		Debug.Print( .Items.CellCaption(h,c) )
	End With
End Sub

With G2antt1
	.BeginUpdate 
	.LinesAtRoot = -1
	.Columns.Add "Items"
	With .Items
		h = .AddItem("R1")
		.InsertItem h,,"Cell 1.1"
		.InsertItem h,,"Cell 1.2"
		.ExpandItem(h) = True
		h = .AddItem("R2")
		.InsertItem h,,"Cell 2.1"
		.InsertItem h,,"Cell 2.2"
		.ExpandItem(h) = True
	End With
	.EndUpdate 
End With
1074
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
With G2antt1
	.BeginUpdate 
	.DrawGridLines = -1
	.GridLineStyle = 33 ' GridLinesStyleEnum.exGridLinesVSolid Or GridLinesStyleEnum.exGridLinesHDot4
	.Columns.Add "C1"
	.Columns.Add "C2"
	.Columns.Add "C3"
	With .Items
		h = .AddItem("Item 1")
		.CellValue(h,1) = "SubItem 1.2"
		.CellValue(h,2) = "SubItem 1.3"
		h = .AddItem("Item 2")
		.CellValue(h,1) = "SubItem 2.2"
		.CellValue(h,2) = "SubItem 2.3"
	End With
	.EndUpdate 
End With
1073
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar

With G2antt1
	.BeginUpdate 
	.DrawGridLines = -1
	.GridLineColor = RGB(220,220,220)
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = -1
		.GridLineStyle = 256
		.LevelCount = 2
		With .Level(1)
			.DrawGridLines = True
			.GridLineColor = RGB(220,220,220)
		End With
		With .Bars.Item("Task")
			.Pattern = 1
			.Height = 14
		End With
	End With
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Item 1")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
		.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
	End With
	.EndUpdate 
End With
1072
Is it possible to change the style for the vertical grid lines, in the chart area only

With G2antt1
	.BeginUpdate 
	.DrawGridLines = -1
	.GridLineStyle = 12
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = -1
		.GridLineStyle = 12
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		With .Level(0)
			.GridLineColor = RGB(255,0,0)
			.GridLineStyle = 32
		End With
		.Bars.Item("Task").Pattern = 1
	End With
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Item 1")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
		.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
	End With
	.EndUpdate 
End With
1071
Is it possible to change the style for the grid lines, for instance to be solid not dotted

With G2antt1
	.BeginUpdate 
	.DrawGridLines = -1
	.GridLineStyle = 48
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = -1
		.GridLineStyle = 48
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = 1
	End With
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Item 1")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
		.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
	End With
	.EndUpdate 
End With
1070
How can I show the grid lines for the chart and list area

With G2antt1
	.DrawGridLines = -1
	With .Chart
		.PaneWidth(0) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = -1
		.LevelCount = 2
		.Level(1).DrawGridLines = True
		.Bars.Item("Task").Pattern = 1
	End With
	.Columns.Add "Column"
	With .Items
		h = .AddItem("Item 1")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,"A"
		.AddBar h,"Task",#1/8/2001#,#1/15/2001#,"B"
	End With
End With
1069
In the level of the chart we are showing the week number of the year (1-53) (Week: ww). However the weeknumber isn't correct. In western Europe the week of 04/01/2010 till 10/01/2010 is weeknumber 1, however the g2antt says it's week 2

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #12/28/2009#
		.LevelCount = 2
		.Level(0).Label = "Week: <%ww%>/<%yyyy%>"
		.FirstWeekDay = 1
	End With
End With
1068
How can I determine the current visible date range of the gantt chart area
With G2antt1
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/6/2001#
		.AddBar .AddItem("Task 2"),"Task",#1/3/2001#,#1/7/2001#
		.AddBar .AddItem("Task 3"),"Task",#1/4/2001#,#1/8/2001#
		.AddBar .AddItem("Task 4"),"Task",#1/6/2001#,#1/10/2001#
	End With
	Debug.Print( .Chart.StartPrintDate )
	Debug.Print( .Chart.EndPrintDate )
End With
1067
How can I change the progress bar using a spin editor using values from 0 to 100

With G2antt1
	.BeginUpdate 
	.Items.AllowCellValueToItemBar = True
	With .Columns
		.Add "Task"
		With .Add("Percent")
			.Editor.EditType = 4
			.Def(18) = 518
		End With
	End With
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.Bars.Add "Task%Progress"
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task%Progress",#1/2/2001#,#1/6/2001#
		.CellValue(h,1) = 40
		h = .AddItem("Task 2")
		.AddBar h,"Task%Progress",#1/2/2001#,#1/6/2001#
		.CellValue(h,1) = 50
	End With
	.EndUpdate 
End With
1066
Is it possible to display the histogram for selected bars only

With G2antt1
	.BeginUpdate 
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 64
		.FirstVisibleDate = #1/1/2001#
		.HistogramVisible = True
		.HistogramView = 8
		.HistogramHeight = 32
		.Bars.Item("Task").HistogramPattern = 6
	End With
	.Columns.Add "Column"
	With .Items
		.AddBar .AddItem("Item 1"),"Task",#1/3/2001#,#1/5/2001#,1
		.AddBar .AddItem("Item 2"),"Task",#1/4/2001#,#1/7/2001#,2
		.AddBar .AddItem("Item 3"),"Task",#1/2/2001#,#1/6/2001#,3
		.ItemBar(0,2,257) = True
		.ItemBar(0,3,257) = True
	End With
	.EndUpdate 
End With
1065
How can I fix a bar, so it is not selectable, moveable or resizable, fixed in other words
With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/8/2001#,"K1","Unselectable"
		.ItemBar(h1,"K1",29) = False
	End With
	.EndUpdate 
End With
1064
How can I fix a bar, so it is not moveable or resizable
With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1","Fixed"
		.ItemBar(h1,"K1",10) = False
		.ItemBar(h1,"K1",11) = False
	End With
	.EndUpdate 
End With
1063
Is is possible to fix a bar during PDM scheduling
With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"TaskF",#1/2/2001#,#1/4/2001#,"K1"
		.ItemBar(h1,"K1",10) = False
		.ItemBar(h1,"K1",11) = False
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"TaskF",#1/2/2001#,#1/4/2001#,"K3"
		.ItemBar(h3,"K3",10) = False
		.ItemBar(h3,"K3",11) = False
		.AddLink "L2",h2,"K2",h3,"K3"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1062
How can I specify that during scheduling the link, bars should be delayed, on working part

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/1/2001#,#1/3/2001#,"K1"
		.ItemBar(h1,"K1",20) = True
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.ItemBar(h2,"K2",20) = True
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.ItemBar(h3,"K3",20) = True
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "link delays the bars<br>for <b>2</b> working days"
		.Link("L2",16) = 2
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1061
How can I specify that during scheduling the link, bars should be delayed

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.ShowNonworkingDates = False
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "   Finish-Start<br>delayed <b>4</b> days"
		.Link("L2",17) = 4
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1060
The SchedulePDM method put the bars on non-working part, how can I prevent that

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		.ItemBar(h1,"K1",20) = True
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.ItemBar(h2,"K2",20) = True
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.ItemBar(h3,"K3",20) = True
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "FS"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1059
How can I add a SF (Start-Finish) link so activities get arranged using the SchedulePDM

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "SF"
		.Link("L2",6) = 0
		.Link("L2",7) = 2
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1058
How can I add a SS (Start-Start) link so activities get arranged using the SchedulePDM

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "SS"
		.Link("L2",6) = 0
		.Link("L2",7) = 0
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1057
How can I add a FF (Finish-Finish) link so activities get arranged using the SchedulePDM

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #12/28/2000#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "FF"
		.Link("L2",6) = 2
		.Link("L2",7) = 2
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1056
How can I add a FS (Finish-Start) link so activities get arranged using the SchedulePDM

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/5/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		.Link("L1",12) = "FS"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/6/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.Link("L2",12) = "FS"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1055
How can I schedule activities in the project plan
With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddLink "L2",h3,"K3",h2,"K2"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1054
How do I arrange the bars based on the links

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
		h2 = .AddItem("Task 2")
		.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddLink "L1",h1,"K1",h2,"K2"
		h3 = .AddItem("Task 3")
		.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddLink "L2",h2,"K2",h3,"K3"
		.SchedulePDM 0,"K1"
	End With
	.EndUpdate 
End With
1053
Is is possible to use HTML tags to display in the filter caption
With G2antt1
	.BeginUpdate 
	.FilterBarPromptVisible = True ' True
	.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
	.Columns.Add ""
	With .Items
		.AddItem "Item 1"
		.AddItem "Item 2"
		.AddItem "Item 3"
	End With
	.EndUpdate 
End With
1052
How can I find the number of items after filtering
With G2antt1
	.BeginUpdate 
	.Columns.Add ""
	With .Items
		h = .AddItem("")
		.CellValue(h,0) = .VisibleItemCount
	End With
	.EndUpdate 
End With
1051
How can I change the filter caption
With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 12801 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	.FilterBarCaption = "<r>Found: ... "
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1050
While using the filter prompt is it is possible to use wild characters
With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 16
	.FilterBarPromptPattern = "lon* seat*"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1049
How can I list all items that contains any of specified words, not necessary at the beggining
With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 4610 ' FilterPromptEnum.exFilterPromptStartWords Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london davolio"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1048
How can I list all items that contains any of specified words, not strings
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 12802 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "london nancy"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1047
How can I list all items that contains all specified words, not strings
With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 12801 ' FilterPromptEnum.exFilterPromptWords Or FilterPromptEnum.exFilterPromptContainsAll
	.FilterBarPromptPattern = "london robert"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1046
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 258 ' FilterPromptEnum.exFilterPromptCaseSensitive Or FilterPromptEnum.exFilterPromptContainsAny
	.FilterBarPromptPattern = "Anne"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1045
Is it possible to list only items that ends with any of specified strings
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 4
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1044
Is it possible to list only items that ends with any of specified strings
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 4
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "Fuller"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1043
Is it possible to list only items that starts with any of specified strings
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 3
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "An M"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1042
Is it possible to list only items that starts with specified string
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 3
	.FilterBarPromptColumns = "0"
	.FilterBarPromptPattern = "A"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1041
How can I specify that the list should include any of the seqeunces in the pattern
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 2
	.FilterBarPromptPattern = "london seattle"
	.Chart.PaneWidth(True) = 0
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1040
How can I specify that all sequences in the filter pattern must be included in the list
With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptType = 1
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1039
How do I change at runtime the filter prompt
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptPattern = "london manager"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1038
How do I specify to filter only a single column when using the filter prompt
With G2antt1
	.BeginUpdate 
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.Chart.PaneWidth(True) = 0
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPromptColumns = "2,3"
	.FilterBarPromptPattern = "london"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1037
How do I change the prompt or the caption being displayed in the filter bar
With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	.FilterBarPrompt = "changed"
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	.EndUpdate 
End With
1036
How do I enable the filter prompt feature

With G2antt1
	.BeginUpdate 
	.Chart.PaneWidth(True) = 0
	.ColumnAutoResize = True
	.ContinueColumnScroll = 0
	.FocusColumnIndex = 1
	.MarkSearchColumn = False
	.SearchColumnIndex = 1
	.FilterBarPromptVisible = True ' True
	With .Columns
		.Add("Name").Width = 96
		.Add("Title").Width = 96
		.Add "City"
	End With
	With .Items
		h0 = .AddItem("Nancy Davolio")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Andrew Fuller")
		.CellValue(h0,1) = "Vice President, Sales"
		.CellValue(h0,2) = "Tacoma"
		.SelectItem(h0) = True
		h0 = .AddItem("Janet Leverling")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Kirkland"
		h0 = .AddItem("Margaret Peacock")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "Redmond"
		h0 = .AddItem("Steven Buchanan")
		.CellValue(h0,1) = "Sales Manager"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Michael Suyama")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Robert King")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
		h0 = .AddItem("Laura Callahan")
		.CellValue(h0,1) = "Inside Sales Coordinator"
		.CellValue(h0,2) = "Seattle"
		h0 = .AddItem("Anne Dodsworth")
		.CellValue(h0,1) = "Sales Representative"
		.CellValue(h0,2) = "London"
	End With
	.EndUpdate 
End With
1035
How can I unselect all bars
With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K2"
		.AddBar .AddItem("Task 3"),"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
		.ItemBar(0,"<*>",257) = True
		.ItemBar(0,"<*>",257) = False
	End With
End With
1034
Can I select bars using a pattern using wild characters as *,

With G2antt1
	.Columns.Add "Task"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.ShowNonworkingDates = False
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1K","K1K"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2M","K2M"
		.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"K3K","K3K"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
		.ItemBar(0,"<K*K>",257) = True
	End With
End With
1033
How can I select all bars in the item with a specified key

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
		.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"P","P"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
		.ItemBar(h,"<K*>",257) = True
	End With
End With
1032
How can I select all bars in the specified item

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
		.AddBar h,"Task",#1/9/2001#,#1/11/2001#,"P","P"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
		.ItemBar(h,"<*>",257) = True
	End With
End With
1031
How can I select all bars with a specified key

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
		.AddBar h,"Task",#1/8/2001#,#1/10/2001#,"P","P"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"P","P"
		.ItemBar(0,"<P>",257) = True
	End With
End With
1030
How can I select all bars

With G2antt1
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	.Chart.PaneWidth(False) = 48
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1","K1"
		.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"K2","K2"
		.AddBar h,"Task",#1/8/2001#,#1/10/2001#,"P","P"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"Q","Q"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"M","M"
		.ItemBar(0,"<*>",257) = True
	End With
End With
1029
I have the AllowInsideZoom property on True, but I am still not able to use the inside zoom feature

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 0
		.LevelCount = 3
		.FirstWeekDay = 1
		.Level(0).Label = "Week: <%ww%>"
		With .Level(1)
			.Label = "<%dddd%>"
			.Alignment = 1
		End With
		.Level(2).Label = 65536
		.NonworkingHours = 16773375
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
		.AllowInsideZoom = True
		With .DefaultInsideZoomFormat
			.InsideUnit = 1048576
			.InsideLabel = "<b><%nn%></b>"
		End With
		.InsideZooms.Add #1/1/2001 10:00:00 AM#
	End With
	.EndUpdate 
End With
1028
Is there any option to find out if two bars intersects

With G2antt1
	.BeginUpdate 
	.DefaultItemHeight = 22
	.Columns.Add "InterectBars"
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").OverlaidType = 1
	End With
	With .Items
		h = .AddItem("")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A","A"
		.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"B","B"
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		h = .AddItem("")
		.AddBar h,"Task",#1/6/2001#,#1/9/2001#,"A","A"
		.AddBar h,"Task",#1/10/2001#,#1/13/2001#,"B","B"
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
		h = .AddItem("")
		.AddBar h,"Task",#1/6/2001#,#1/9/2001#,"B","B"
		.AddBar h,"Task",#1/10/2001#,#1/13/2001#,"A","A"
		.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
	End With
	.EndUpdate 
End With
1027
How can I find if a specified hour is a working or non-working hour, when using the ItemNonWorkingUnits

With G2antt1
	.BeginUpdate 
	.Columns.Add("Hour").FormatColumn = "hour(value)"
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 164
		.FirstWeekDay = 1
		.LevelCount = 2
		.UnitScale = 65536
		.NonworkingHours = 1
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem(#1/1/2001#)
		.ItemNonworkingUnits(h,False) = "hour(value) >0 "
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0),h)
		.CellValue(h,1) = w
	End With
	.EndUpdate 
End With
1026
How can I find if a specified hour is a working or non-working hour
With G2antt1
	.BeginUpdate 
	.Columns.Add("Hour").FormatColumn = "hour(value)"
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 164
		.FirstWeekDay = 1
		.LevelCount = 2
		.UnitScale = 65536
		.NonworkingHours = 1
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem(#1/1/2001 1:00:00 AM#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
	End With
	.EndUpdate 
End With
1025
How can I find if a specified date-time is a working or non-working unit, when using the ItemNonWorkingUnits
With G2antt1
	.BeginUpdate 
	.Columns.Add("Date").Width = 48
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 128
		.FirstWeekDay = 1
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem(#1/1/2001#)
		.ItemNonworkingUnits(h,False) = "weekday(value) in (1)"
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0),h)
		.CellValue(h,1) = w
	End With
	.EndUpdate 
End With
1024
How can I find if a specified date-time is a working or non-working unit
With G2antt1
	.BeginUpdate 
	.Columns.Add("Date").Width = 48
	.Columns.Add("Type").FormatColumn = "value != 0 ? 'non-working' : 'working'"
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(0) = 128
		.FirstWeekDay = 1
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem(#1/1/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
		h = .AddItem(#1/6/2001#)
		w = G2antt1.Chart.IsNonworkingDate(G2antt1.Items.CellValue(h,0))
		.CellValue(h,1) = w
	End With
	.EndUpdate 
End With
1023
When zooming to days, the non-working part of the chart occupies some not useful space. Can I reduce it

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/3/2002#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = -1
		.FirstWeekDay = 1
		.Level(0).Label = "Week: <%ww%>"
		With .Level(1)
			.Label = "<%d%>/<%m2%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.UnitWidth = 32
		.UnitWidthNonworking = -32
	End With
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Default")
		.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
	End With
	.EndUpdate 
End With
1022
My chart display only working hours, but when zooming to days, each day shows the non-working part of the day too, even if I use the ShowNonWorkingUnits property on False. What am I doing wrong

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/3/2002 10:00:00 AM#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = -1
		.FirstWeekDay = 1
		.Level(0).Label = "<%ww%>"
		With .Level(1)
			.Label = "<%dd%>"
			.Unit = 65536
			.Count = 24
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidth = 32
	End With
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Default")
		.AddBar h,"Task",#1/4/2002 10:00:00 AM#,#1/8/2002 2:00:00 AM#,"A"
		.ItemBar(h,"A",20) = True
	End With
	.EndUpdate 
End With
1021
I need to display only working hours and weekend part, but for some items I need another non-working part. Is this possible

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/3/2002#
		.Bars.Add("Task:Split").Shortcut = "Task"
		.LevelCount = 2
		.DrawGridLines = -1
		With .Level(0)
			.Label = "<%ddd%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		With .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -24
	End With
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Default")
		.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
		.ItemBar(h,"A",20) = True
		h = .AddItem("Friday")
		.AddBar h,"Task",#1/3/2002#,#1/7/2002 0:00:00 PM#,"A"
		.ItemBar(h,"A",20) = True
		.ItemNonworkingUnits(h,False) = "weekday(value) in (0,6,5) or hour(value)<10 or hour(value)>=14"
		h = .AddItem("Till 13")
		.AddBar h,"Task",#1/4/2002#,#1/7/2002 0:00:00 PM#,"A"
		.ItemBar(h,"A",20) = True
		.ItemNonworkingUnits(h,False) = "weekday(value) in (0,6) or hour(value)<10 or hour(value)>=13"
	End With
	.EndUpdate 
End With
1020
I can display the working hours, but how can I hide the weekend or non-working part of the chart when using the ShowNonWorkingUnits property on False

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
	End With
End With
1019
How can I display only the working hours but uses less space for non-working part, such as weekend

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		With .Level(0)
			.Label = "<%ddd%>"
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		With .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? 'end' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -24
	End With
End With
1018
How can I display only the working hours but uses less space for non-working part, such as weekend

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		With .Level(1)
			.Label = 65536
			.FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
		.UnitWidthNonworking = 8
	End With
End With
1017
How can I display only the working hours

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
	End With
End With
1016
How can I specify non-working hours

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = 65536
		.NonworkingHours = 16761855
	End With
End With
1015
How can I display the working hours for a bar

With G2antt1
	.BeginUpdate 
	With .Columns
		.Add "Tasks"
		With .Add("Working")
			.Def(18) = 258
			.Def(19) = "A"
			.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
		End With
	End With
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.PaneWidth(False) = 96
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/3/2002#
		.LevelCount = 2
		.Level(0).Label = "<%ddd%>"
		.Level(1).Label = "<%hh%>"
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingHours = False
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
		.ItemBar(h,"A",20) = True
		h = .AddItem("Task 2")
		.AddBar h,"Task",#1/3/2002#,#1/4/2002#,"A"
		.ItemBar(h,"A",20) = True
	End With
	.EndUpdate 
End With
1014
Is it possible to show only working hours, showing a small part for the weekend days, and in the same time showing the bars by splitting the non-working part and keeping the working units for the bar while moving

With G2antt1
	.BeginUpdate 
	With .Chart
		.Bars.Add("Task:Split").Shortcut = "Task"
		.FirstVisibleDate = #1/3/2002#
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%ddd%>"
			.Alignment = 1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidthNonworking = -40
	End With
	.Columns.Add "Task"
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
		.ItemBar(h,"A",20) = True
	End With
	.EndUpdate 
End With
1013
How can I show bars with different solid color but black border

With G2antt1
	.BeginUpdate 
	.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExG2antt.NET\sample\EBN\blackbox.ebn"
	.Columns.Add "Task"
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Chart.Bars.Item("Task")
		.Color = &H1000000
		.Height = 15
	End With
	.Chart.PaneWidth(False) = 0
	With .Items
		h = .AddItem("Task")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,""
		.ItemBar(h,"",33) = 65535
		h = .AddItem("Task")
		.AddBar h,"Task",#1/2/2001#,#1/5/2001#,""
		.ItemBar(h,"",33) = 255
	End With
	.EndUpdate 
End With
1012
I want to display a vertical line for each week, while I still need a vertical separator for each day. Is this possible

With G2antt1
	.GridLineColor = RGB(240,240,240)
	With .Chart
		.PaneWidth(False) = 0
		.DrawGridLines = -1
		.NonworkingDays = 0
		.LevelCount = 2
		With .Level(0)
			.DrawGridLines = True
			.GridLineColor = RGB(0,0,0)
		End With
		With .Level(1)
			.DrawGridLines = True
			.GridLineColor = RGB(240,240,240)
		End With
	End With
End With
1011
How can I display the levels as year, day, AM and PM for each day
With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #12/1/2009#
		.UnitWidth = 22
		.LevelCount = 3
		.Level(0).Label = "<%yyyy%>"
		.Level(1).Label = "<%mm%>/<%dd%>"
		With .Level(2)
			.Label = "<%AM/PM%>"
			.Count = 12
		End With
	End With
End With
1010
How can I change the pattern for a specified time unit, in the chart area

With G2antt1
	.BeginUpdate 
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2008#
		.AllowInsideZoom = True
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .DefaultInsideZoomFormat
			.PatternChart = 6
			.PatternColorChart = RGB(255,0,0)
		End With
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 18
			.Add(#1/4/2008#).AllowInsideFormat = False
		End With
	End With
	.EndUpdate 
End With
1009
How can I hide the non-working hours, but still display the non-working days with even less space

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dddd%>"
			.Alignment = 1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>weekend</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidth = 32
		.UnitWidthNonworking = -32
	End With
	.EndUpdate 
End With
1008
How can I hide the non-working hours, but still display the non-working days with less space

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dddd%>"
			.Alignment = 1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
			.FormatLabel = "weekday(dvalue) in (0,6) ? `<font ;6>` + value + `</font>` : value"
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
		.UnitWidth = 32
		.UnitWidthNonworking = 12
	End With
	.EndUpdate 
End With
1007
How can I hide the non-working hours, but still display the non-working days

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dddd%>"
			.Alignment = 1
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = True
		.ShowNonworkingHours = False
	End With
	.EndUpdate 
End With
1006
How can I hide the non-working hours, and the non-working days

With G2antt1
	.BeginUpdate 
	With .Chart
		.FirstVisibleDate = #11/19/2009#
		.DrawGridLines = -1
		.GridLineStyle = 512
		.PaneWidth(0) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dddd%>"
			.Alignment = 1
		End With
		With .Level(1)
			.Label = 65536
			.DrawGridLines = -1
		End With
		.NonworkingHours = 16761855
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.ShowNonworkingHours = False
	End With
	.EndUpdate 
End With
1005
Can I highlights the non-working hours while my chart shows days

With G2antt1
	With .Chart
		.PaneWidth(False) = 0
		.FirstVisibleDate = #1/1/2001#
		.UnitWidth = 48
		.LevelCount = 2
		With .Level(1)
			.Label = "<%d%>"
			.Unit = 65536
			.Count = 24
		End With
		.NonworkingHours = 127
	End With
End With
1004
How can I reduce the space/area being occupied by non-working units days or hours (method 2)

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstWeekDay = 1
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 64
		.UnitWidthNonworking = -8
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '.' : value"
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
		.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
		.ItemBar(h,"<*>",33) = 255
	End With
	.EndUpdate 
End With
1003
How can I reduce the space/area being occupied by non-working units days or hours (method 1)

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstWeekDay = 1
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 64
		.UnitWidthNonworking = 4
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? '' : value"
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
		.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
		.ItemBar(h,"<*>",33) = 255
	End With
	.EndUpdate 
End With
1002
How can I hide the non-working units

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.FirstWeekDay = 1
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 64
		.ShowNonworkingUnits = False
		.ShowNonworkingDates = False
		.DrawGridLines = 2
		.Level(0).DrawGridLines = True
		.GridLineStyle = 512
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"K1"
		.AddBar h,"Task",#1/5/2001#,#1/6/2001#,"K2"
		.AddBar .AddItem("Task 2"),"Task",#1/2/2001#,#1/4/2001#,"K3"
		.AddBar .AddItem("Task 4"),"Task",#1/2/2001#,#1/4/2001#,"K4"
		.ItemBar(h,"<*>",33) = 255
	End With
	.EndUpdate 
End With
1001
How can I determine that a certain bar is the topmost (zorder)

With G2antt1
	.BeginUpdate 
	.Columns.Add "Task"
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #12/27/2000#
		.Bars.Item("Task").Pattern = 1
	End With
	With .Items
		h = .AddItem("B in front")
		.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"A"
		.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"B","<fgcolor=FF0000>B</fgcolor>"
		.ItemBar(h,"B",18) = -2
		.ItemBar(h,"B",4) = 18
		.ItemBar(h,"B",33) = 255
		h = .AddItem("A in back")
		.AddBar h,"Task",#1/2/2001#,#1/6/2001#,"A","<fgcolor=FF0000>A</fgcolor>"
		.ItemBar(h,"A",18) = -2
		.ItemBar(h,"A",4) = 18
		.ItemBar(h,"A",33) = 255
		.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"B"
	End With
	.EndUpdate 
End With